home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / CDTools / MUIRexx / demos / MUIRexxBuild / test / DIRUTIL.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-03-19  |  2.9 KB  |  95 lines
  1. /* Application created by MUIBuild */
  2.  
  3. address DIRUTIL
  4.  
  5. MUIM_Notify = 0x8042c9cb
  6. MUIM_Set = 0x8042549a
  7. MUIA_Background = 0x8042545b
  8. MUIA_Group_Columns = 0x8042f416
  9. MUIA_List_Active = 0x8042391c
  10. MUIV_EveryTime = 0x49893131
  11. MUII_FILL = 131
  12. MUII_TextBack = 4
  13.  
  14. window ID WDIR COMMAND """quit""" PORT DIRUTIL TITLE """Directory Utility"""
  15.  text
  16.  group HORIZ
  17.   group REGISTER LABELS "Directory,Buffers,Volumes"
  18.    group
  19.     text ID TXT1
  20.     dirlist ID DIR1 PATH "RAM:"
  21.     string ID STR1
  22.    endgroup
  23.    group
  24.     list
  25.    endgroup
  26.    group
  27.     volumelist
  28.    endgroup
  29.   endgroup
  30.   group REGISTER LABELS "Directory,Buffers,Volumes"
  31.    group
  32.     text ID TXT2
  33.     dirlist ID DIR2 PATH "RAM:"
  34.     string ID STR2
  35.    endgroup
  36.    group
  37.     list
  38.    endgroup
  39.    group
  40.     volumelist
  41.    endgroup
  42.   endgroup
  43.  endgroup
  44.  group HORIZ
  45.   button COMMAND """dirlist ID DIR1 PATH df0:""" PORT DIRUTIL LABEL "DF0"
  46.   button COMMAND """dirlist ID DIR1 PATH ram:""" PORT DIRUTIL LABEL "RAM"
  47.   button COMMAND """dirlist ID DIR1 PATH system:""" PORT DIRUTIL LABEL "SYS"
  48.   button COMMAND """dirlist ID DIR1 PATH programs:""" PORT DIRUTIL LABEL "PRG"
  49.   button COMMAND """dirlist ID DIR1 PATH archives:""" PORT DIRUTIL LABEL "ARC"
  50.   button COMMAND """dirlist ID DIR1 PATH apps:""" PORT DIRUTIL LABEL "APP"
  51.   button COMMAND """dirlist ID DIR1 PATH tools:""" PORT DIRUTIL LABEL "TLS"
  52.   button COMMAND """dirlist ID DIR1 PATH data:""" PORT DIRUTIL LABEL "DAT"
  53.   button COMMAND """dirlist ID DIR2 PATH df0:""" PORT DIRUTIL LABEL "DF0"
  54.   button COMMAND """dirlist ID DIR2 PATH ram:""" PORT DIRUTIL LABEL "RAM"
  55.   button COMMAND """dirlist ID DIR2 PATH system:""" PORT DIRUTIL LABEL "SYS"
  56.   button COMMAND """dirlist ID DIR2 PATH programs:""" PORT DIRUTIL LABEL "PRG"
  57.   button COMMAND """dirlist ID DIR2 PATH archives:""" PORT DIRUTIL LABEL "ARC"
  58.   button COMMAND """dirlist ID DIR2 PATH apps:""" PORT DIRUTIL LABEL "APP"
  59.   button COMMAND """dirlist ID DIR2 PATH tools:""" PORT DIRUTIL LABEL "TLS"
  60.   button COMMAND """dirlist ID DIR2 PATH data:""" PORT DIRUTIL LABEL "DAT"
  61.  endgroup
  62.  group ATTRS MUIA_Group_Columns 8
  63.   button
  64.   button
  65.   button
  66.   button
  67.   button
  68.   button
  69.   button
  70.   button
  71.   button
  72.   button
  73.   button
  74.   button
  75.   button
  76.   button
  77.   button
  78.   button
  79.   button
  80.   button
  81.   button
  82.   button
  83.   button
  84.   button
  85.   button
  86.   button
  87.  endgroup
  88. endwindow
  89. method ID DIR1 MUIM_Notify MUIA_List_Active MUIV_EveryTime @TXT1 3 MUIM_Set MUIA_Background MUII_FILL
  90. method ID DIR1 MUIM_Notify MUIA_List_Active MUIV_EveryTime @TXT2 3 MUIM_Set MUIA_Background MUII_TextBack
  91. method ID DIR2 MUIM_Notify MUIA_List_Active MUIV_EveryTime @TXT2 3 MUIM_Set MUIA_Background MUII_FILL
  92. method ID DIR2 MUIM_Notify MUIA_List_Active MUIV_EveryTime @TXT1 3 MUIM_Set MUIA_Background MUII_TextBack
  93. callhook ID DIR1 COMMAND """string ID STR1 CONTENT %s""" PORT DIRUTIL ATTRS MUIA_List_Active MUIV_EveryTime
  94. callhook ID DIR2 COMMAND """string ID STR2 CONTENT %s""" PORT DIRUTIL ATTRS MUIA_List_Active MUIV_EveryTime
  95.